home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 January / EnigmA AMIGA RUN 24 (1997)(G.R. Edizioni)(IT)[!][issue 1998-01 & 02].iso / EARCD / GRAFICA / AGA-Morph-V2.1 / Install-D < prev    next >
Text File  |  1997-12-08  |  5KB  |  194 lines
  1. ; Installerscript for AGA-Morph V2.1
  2. ; © 1997 by Stefan Guthe
  3.  
  4. (set name
  5.         (askdir (prompt "Bitte ein Verzeichnis wählen,um AGA-Morph V2.1. Ein neues Verzeichnis mit dem Namen AGA-Morph wird erstellt.")
  6.                 (help @makedir-help)
  7.                 (default "work:")
  8.         )
  9. )
  10.  
  11. (if     (askbool(prompt "Möchten Sie die 8-Farb Piktogramme installieren?")
  12.                 (help "Wählen sie einfach das gewünschte aus.")
  13.                 (choices "8-Farben" "4-Farben")
  14.                 (default 0)
  15.         )
  16.         (
  17.                 (copyfiles
  18.                         (prompt "Erstelle Verzeichnis")
  19.                         (help @copyfiles-help)
  20.                         (source "AGA-Morph")
  21.                         (dest "T:")
  22.                         (pattern "AGA-Morph-8")
  23.                         (infos)
  24.                 )
  25.                 (rename "T:AGA-Morph-8" "T:AGA-Morph")
  26.                 (rename "T:AGA-Morph-8.info" "T:AGA-Morph.info")
  27.         )
  28.         (
  29.                 (copyfiles
  30.                         (prompt "Erstelle Verzeichnis")
  31.                         (help @copyfiles-help)
  32.                         (source "AGA-Morph")
  33.                         (dest "T:")
  34.                         (pattern "AGA-Morph-4")
  35.                         (infos)
  36.                 )
  37.                 (rename "T:AGA-Morph-4" "T:AGA-Morph")
  38.                 (rename "T:AGA-Morph-4.info" "T:AGA-Morph.info")
  39.         )
  40. )
  41.  
  42. (delete ("T:AGA-Morph/Pictures.info")
  43.         (optional force)
  44. )
  45.  
  46. (delete ("T:AGA-Morph/Pictures")
  47.         (optional force)
  48. )
  49.  
  50. (delete ("T:AGA-Morph/Source.info")
  51.         (optional force)
  52. )
  53.  
  54. (delete ("T:AGA-Morph/Source")
  55.         (optional force)
  56. )
  57.  
  58. (copyfiles
  59.         (prompt "Erstelle Verzeichnis")
  60.         (help @copyfiles-help)
  61.         (source "T:")
  62.         (dest name)
  63.         (pattern "AGA-Morph")
  64.         (infos)
  65. )
  66.  
  67. (delete ("T:AGA-Morph/AGA-Morph.info")
  68.         (optional force)
  69. )
  70.  
  71. (delete ("T:AGA-Morph/AGA-Morph.guide.info")
  72.         (optional force)
  73. )
  74.  
  75. (delete ("T:AGA-Morph/Bilder.info")
  76.         (optional force)
  77. )
  78.  
  79. (delete ("T:AGA-Morph/Bilder")
  80.         (optional force)
  81. )
  82.  
  83. (delete ("T:AGA-Morph/Quellen.info")
  84.         (optional force)
  85. )
  86.  
  87. (delete ("T:AGA-Morph/Quellen")
  88.         (optional force)
  89. )
  90.  
  91. (delete ("T:AGA-Morph")
  92.         (optional force)
  93. )
  94.  
  95. (delete ("T:AGA-Morph.info")
  96.         (optional force)
  97. )
  98.  
  99. (complete 5)
  100.  
  101. (set name
  102.         (tackon name "AGA-Morph"
  103.         )
  104. )
  105.  
  106. (set n
  107.         (askchoice
  108.                 (prompt "Bitte die Version von AGA-Morph auswählen, die installiert erden soll.")
  109.                 (help @askoptions-help)
  110.                 (choices
  111.                         "AGA-Morph"
  112.                         "AGA-Morph-FPU"
  113.                         "AGA-Morph-020"
  114.                         "AGA-Morph-020-FPU"
  115.                         "AGA-Morph-040"
  116.                         "AGA-Morph-040-FPU"
  117.                         "AGA-Morph-060"
  118.                         "AGA-Morph-060-FPU"
  119.                 )
  120.                 (default 0)
  121.         )
  122. )
  123.  
  124. (if (= n 0) (set name2 "AGA-Morph-d"))
  125. (if (= n 1) (set name2 "AGA-Morph-FPU-d"))
  126. (if (= n 2) (set name2 "AGA-Morph-020-d"))
  127. (if (= n 3) (set name2 "AGA-Morph-020-FPU-d"))
  128. (if (= n 4) (set name2 "AGA-Morph-040-d"))
  129. (if (= n 5) (set name2 "AGA-Morph-040-FPU-d"))
  130. (if (= n 6) (set name2 "AGA-Morph-060-d"))
  131. (if (= n 7) (set name2 "AGA-Morph-060-FPU-d"))
  132.  
  133. (if (exists (tackon name "AGA-Morph"))
  134.     (delete (tackon name "AGA-Morph")
  135.             (optional "force")
  136.     )
  137. )
  138.  
  139. (copyfiles
  140.         (prompt "Kopiere AGA-Morph.")
  141.         (help @copyfiles-help)
  142.         (source (cat "Bin/d/" name2))
  143.         (dest name)
  144. )
  145.  
  146. (rename (tackon name name2) (tackon name "AGA-Morph"))
  147.  
  148. (complete 35)
  149.  
  150. (copyfiles
  151.         (prompt "Kopiere AGA-Morph-Guide.")
  152.         (help @copyfiles-help)
  153.         (source "")
  154.         (dest name)
  155.         (pattern "AGA-Morph-D.Guide")
  156. )
  157.  
  158. (if (exists (tackon name "AGA-Morph.Guide"))
  159.     (delete (tackon name "AGA-Morph.Guide")
  160.             (optional "force")
  161.     )
  162. )
  163.  
  164. (rename (tackon name "AGA-Morph-D.Guide") (tackon name "AGA-Morph.Guide"))
  165.  
  166. (complete 55)
  167.  
  168. (copyfiles
  169.         (prompt "Kopiere Bilder.")
  170.         (help @copyfiles-help)
  171.         (source "Pictures/")
  172.         (dest (tackon name "Bilder"))
  173.         (pattern "#?")
  174. )
  175.  
  176. (complete 90)
  177.  
  178. (if     (exists "fonts:STG/8")
  179.         (message "STG font existiert bereits.")
  180.         (copyfiles
  181.                 (prompt "Kopiere Font")
  182.                 (help @copyfiles-help)
  183.                 (source "fonts")
  184.                 (dest "fonts:")
  185.                 (pattern "#?")
  186.                 (fonts)
  187.         )
  188. )
  189.  
  190. (complete 100)
  191.  
  192. (exit)
  193.  
  194.